home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp® 2.0.1 Tutorial / Chapter 02 / IconEdit.p
Encoding:
Text File  |  1990-10-25  |  642 b   |  29 lines  |  [TEXT/MPS ]
  1. {IconEdit.p}
  2. {copyright © 1989 by Apple Computer, Inc.  All rights reserved.}
  3.  
  4. PROGRAM IconEdit;
  5.  
  6.  
  7. USES
  8.     UMacApp;
  9.  
  10.  
  11. CONST kFileType = 'IDOC';
  12.       kSignature = 'ICED';
  13.  
  14.  
  15. VAR
  16.     gIconApplication:   TApplication;
  17.  
  18.  
  19. BEGIN
  20.     InitToolBox;                    { Essential toolbox and utilities initialization }
  21.     InitUMacApp(8);                    { Initialize MacApp with 8 calls to MoreMasters. }
  22.  
  23.     New(gIconApplication);            { Create a new TIconEditApplication object.      }
  24.     FailNIL(gIconApplication);        { Make sure New didn't fail.                     }
  25.     gIconApplication.IApplication(kFileType);
  26.  
  27.     gIconApplication.Run;            { Run the application.  When it's done, exit.    }
  28. END.
  29.